#!/usr/bin/perl -w

my $dat = `date`;
 
if ( $dat =~ /(Sat*)|(Sun*)/ ) {
print "Time to play \n";
} else {
print "Time to work \n";
}


